home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / computer cartoon (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  97 lines
  1. 0 REM==================================      ==================================
  2. 1 REM= COMPUTER CARTOON,BY JIM GREEN  =      = IDEA FROM A CARTOON STRIP IN   =
  3. 2 REM= FAMILY COMPUTING,NOV.1984,P.40 =      = GOOD EXAMPLE OF  DUMB, DUMB    =
  4. 3 REM= COMPUTER PROGRAMMING.          =      ==================================
  5. 4 REM= PUBLIC DOMAIN.WHO WOULD BUY IT =      ==================================.
  6. 5 POKE53280,5:POKE53281,14
  7. 6 PRINT"[147][158]   THE COMPUTER THAT GOT'TOO'FRIENDLY   [146]":FORD=1TO2000:NEXT
  8. 10 G$="                                        "
  9. 16 PRINT""
  10. 18 PRINT"              [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  11. 20 PRINT"              [221]                     [221]"
  12. 22 PRINT"              [221] [167][144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165] [221]"
  13. 24 FORT=1TO7:PRINT"              [221] [167][144]                 [165] [221]":NEXT
  14. 26 PRINT"              [221] [167][144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165] [221]"
  15. 28 PRINT"              [221]            . . . [215]  [221]"
  16. 30 PRINT"              [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  17. 32 PRINT"                 [153][176][192][192][179] = = = = [171][192][192][174]"
  18. 34 PRINT"              [144][213][192][192][209][153]--[173][192][192][192][192][192][192][192][192][192][189][144].[153] [221]"
  19. 36 PRINT"              [144][221]  [153][221] [209][209][209][209][209][209][209][209][209][209][209] [209] [221]"
  20. 38 PRINT"    [144][213][192][201]    [213][192][192][203]  [153][221] [209][209][209][209][209][209][209][209][209][209][209] [209] [221]"
  21. 40 PRINT"    [144][221][159]=[144][221]    [221]     [153][221]    [162][162][162][162][162][146]      [221]"
  22. 42 PRINT"    [144][202][192][203] =D[192][203]     [153][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  23. 43 FORD=1TO2000:NEXT
  24. 44 PRINT"":FORT=1TO18:PRINT:NEXT:FORT=1TO4:PRINTTAB(7)"        ":NEXT
  25. 48 PRINT"[145][145][145][145][144][203][145][157][213][201][157][202][203][145][157][213][201][157][202][203][145][157][213][192][192][192][192]":PRINT"[144][213][157][219][157][155][215]"
  26. 49 POKE54296,15:POKE54296,0
  27. 50 PRINT""TAB(17)"[159][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  28. 52 FORT=1TO7:PRINTTAB(17)"[180]               [170]":NEXT
  29. 54 PRINTTAB(17)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  30. 56 PRINT""TAB(31)"[129]*":FORD=1TO1300:NEXT
  31. 70 PRINT""
  32. 72 PRINTTAB(21)"[159][213][192][196][197][196][197][196][192][201][221][206][163][205] [206][163][205][221]"
  33. 74 PRINTTAB(21)"[213][179] [215]   [215] [171][201][202][179]   [209]   [171][203]"
  34. 76 PRINTTAB(21)"[221]       [221][221] [183][184][146][162][184][183] [221]"
  35. 78 PRINTTAB(21)"[202][192][178][198][210][198][178][192][203]":GOSUB1100:FORD=1TO1000:NEXT
  36. 80 PRINT" [213][192][192][192][192][201][157][157][157][157][157][157][221]HEY![221][157][157][157][157][157][157][202][192][192][192][192][203][157][157][157][205][205]":GOSUB1010
  37. 81 FORD=1TO1300:NEXT:PRINT""G$
  38. 82 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  39. 83 PRINT"[145][221] DO YOU KNOW WHAT THE  [221]
  40. 84 [153]"(null) BABY COMPUTER'S FIRST (null)
  41. 86 PRINT"[202][192][192][201] WORD WAS? [213][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][178][192][192][192][192][203]
  42. 88 [129]T[178]1[164]10:[153]""[163]24)"TAB(TAB(TAB(TAB(TAB("
  43. 90 [129]D[178]1[164] 50:[130]:[141]1010:[153]"ON"[163]24)"USRFREWAITNEWFREUSR":[141]1010:[141]1010
  44. 92 [129]D[178]1[164]20:[130]:[130]:[129]D[178]1[164]3000:[130]
  45. 95 [153]""G$G$G$G$G$[200](G$,10):[153][200](G$,10)
  46. 97 [153]" (null)TANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMD(null)COME(null)CMDCMDCMDCMDCMDCMD(null) ON (null)CMDCMDCMDCMDCMDCMDMID$TANTANTANTAN(null)CMDCMD(null)(null)":[141]1000
  47. 98 [153]""[163]12)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TANTANTAN=TAN(null)CMDCMDCMD(null)":[141]1000
  48. 100 [153]""[163]22)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TANTANTAN=TAN(null)":[141]1000
  49. 102 [153]""[163]32)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TAN=TANTANTAN(null)CMDCMDCMDCMDCMD(null)":[141]1000
  50. 104 [129]D[178]1[164]1000:[130]
  51. 106 [153]""G$G$G$G$G$[200](G$,8):[153][200](G$,8):[153][200](G$,8)
  52. 110 [153]""[163]7)"(null)TANTANTANTANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)GIVE UP?(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDMID$TANTANTANTANTANTANTANTAN(null)CMDCMDCMDCMD(null)(null)
  53. 111 FORD=1TO1300:NEXT:GOSUB1000
  54. 112 PRINT""TAB(20)"[213][192][192][192][192][192][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][157][157][157][157][157][221]AW COME ON![221][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  55. 114 PRINT"[221] GIVE UP!! [221][157][157][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][178][192][192][192][192][192][203][157][157][157][157][157][157][157][221]":GOSUB1000
  56. 116 FORD=1TO2500:NEXT
  57. 118 PRINT""G$G$G$G$G$;:PRINTLEFT$(G$,8):FORD=1TO2300:NEXT
  58. 122 PRINT""TAB(18)"[213][192][192][192][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][157][157][157][221]         [221]";
  59. 123 PRINT"[157][157][157][157][157][157][157][157][157][157][157][221] 'DA-TA' [221][157][157][157][157][157][157][157][157][157][157][157][221]         [221][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][178][192][192][203]"
  60. 124 GOSUB1000:FORD=1TO200:NEXT:GOSUB1000:FORD=1TO2600:NEXT
  61. 126 PRINT""G$G$G$G$G$
  62. 128 PRINT""TAB(24)"[192]   [192][146]"
  63. 130 PRINTTAB(24)"[205][164][164][164][206][146]":FORD=1TO2000:NEXT
  64. 132 PRINT"[145][145]"TAB(24)"[164][164][164][164][164]"
  65. 140 J$="[170] [180][157][157][157][170][163][180][145][170][163][180][157][157][157][170][163][180][145][221][157].
  66. 142 [153]"SYS  "J$:[153]"PRINT"[163]17)"SYS"J$:[153]""[163]30)J$
  67. 146 [153]"      (null)(null)CMDCMD-<CMDCMD(null)(null)ONONOR^CMDCMD-<CMDCMD(null)(null)ON(null)CMD.
  68. 148 PRINT"[158]  [221][221][157][157][171][179][157][157][221][221][145][145][176][174][157][157][171][179][157][157][221][221][145][221][157].":GOSUB1050
  69. 150 FORD=1TO1000:NEXT
  70. 152 PRINT""TAB(17)"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  71. 154 FORT=1TO7:PRINTTAB(17)"[180]               [170]":NEXT
  72. 156 PRINTTAB(17)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  73. 158 PRINT""TAB(31)"[144]."
  74. 164 PRINT""G$G$G$G$
  75. 166 PRINT""G$G$G$G$:FORT=1TO13:PRINTLEFT$(G$,13):NEXT
  76. 170 PRINT"         "
  77. 171 PRINT"        "
  78. 172 PRINT"[145][192][157][155]="
  79. 178 PRINTTAB(8)"[144]=D[192][192][192][203][145][157][201][157][157][202][145][157][213][203][145][157][213][203][145][157][213][192]"
  80. 180 POKE54296,15:POKE54296,0:FORD=1TO2800:NEXT
  81. 182 PRINT"[158]   THE SMART ALEX GOT HIS PLUG PULLED   ":FORD=1TO5000:NEXT:RUN
  82. 200 END
  83. 1000 PRINT""TAB(24)"[192]   [192]"
  84. 1002 PRINT""TAB(24)"[163][163][163][163][163]"
  85. 1004 FORD=1TO150:NEXT:GOSUB1010:PRINT"[145]"TAB(24)"[183][184][146][162][184][183]":FORD=1TO100:NEXT
  86. 1006 PRINTTAB(24)"[145][145][145][145][215]   [215]":FORD=1TO150:NEXT:RETURN
  87. 1010 S=54272:FORT=0TO23:POKES+T,0:NEXT:POKES+24,5:POKES+5,16:POKES+6,255
  88. 1020 FORT=1TO 3:FORZ=1TO3:POKES+1,INT(RND(1)*50)+54:POKES+4,33:FORK=1TO4:NEXT
  89. 1030 POKES+4,32:NEXT:NEXT:FORT=0TO23:POKES+T,0:NEXT:RETURN
  90. 1050 S=54272:FORT=1TO3:FORD=1TO250:NEXT:FORL=STOS+23:POKEL,0:NEXT:POKES+24,5
  91. 1060 POKES+5,25:POKES+6,255:POKES+4,21
  92. 1070 FORZ=1TO2:F1=67:FORY=1TO2:F2=55:POKES+1,F1:FORX=1TO3:POKES+15,F2
  93. 1080 F1=F1*.71:F2=F2*.8345:NEXT:NEXT:NEXT:POKES+6,15:NEXT:RETURN
  94. 1100 S=54272:FORT=0TO23:POKES+T,0:NEXT:POKES+24,8:POKES+5,16:POKES+6,255
  95. 1110 FORT=1TO15:FORZ=1TO5:POKES+1,INT(RND(1)*225)+20:POKES+4,17:FORK=1TO4:NEXT
  96. 1120 POKES+4,32:NEXT:NEXT:FORT=0TO23:POKES+T,0:NEXT:RETURN
  97.